' BASIC Anywhere Machine program by Charlie Veniot
' mod of antoni15.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.23 at 03.58
'sinus wave by Antoni Gual 
1 SCREEN 13 
2 FOR i% = 0 TO 100 
3 FOR j% = 0 TO 100 
4 PSET (i% + 120, j% + 50), ((i% / 8 + (COS(i% / 19.6) * tt * SIN(j% / 19.6))) AND 15) XOR ((j% / 8 + (SIN(i% / 19.6) * tt * COS(j% / 19.6))) AND 15) + 16 
5 NEXT j%, i% 
6 t = t + 1 
7 tt = COS(t) 
_delay 0.25
GOTO 1